home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / MacTools / HyperCard BBS / Hyper House / card_6578.txt < prev    next >
Text File  |  1988-05-09  |  3KB  |  108 lines
  1. -- card: 6578 from stack: in
  2. -- bmap block id: 7059
  3. -- flags: 0000
  4. -- background id: 2607
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on initCard
  8.   global onLine
  9.   if onLine then put "Logging user in..."
  10.   flushInput
  11.   pass initCard
  12. end initCard
  13.  
  14. on cardFilled
  15.   send mouseUp to button "OK"
  16. end cardFilled
  17.  
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 00
  22. -- high flags: 4000
  23. -- rect: left=354 top=186 right=204 bottom=490
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 3
  28. -- text size: 10
  29. -- style flags: 0
  30. -- line height: 13
  31. -- part name: Name
  32. ----- HyperTalk script -----
  33. -- editable
  34.  
  35.  
  36.  
  37. -- part 3 (button)
  38. -- low flags: 00
  39. -- high flags: A003
  40. -- rect: left=397 top=257 right=281 bottom=449
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: OK
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   global onLine, loginTrys, lastUserInfo
  52.   global userName,userID,userPass,userClear,userOpt,userMachine,userCity
  53.   global userFirst,userTimes,userLast,userLastMin,callers
  54.   set cursor to 4
  55.   put "Verifying user identify..."
  56.   sendString return & "Checking UserList..." & return
  57.   get card field "name"
  58.   if it is empty then
  59.     notifyUser "Blank user name not allowed..."
  60.     send "openCard" to this card
  61.     exit mouseUp
  62.   end if
  63.   put it into userName
  64.   oldUser
  65.   if userID is empty then
  66.     visual effect dissolve fast
  67.     go to next card
  68.     exit mouseUp
  69.   end if
  70.   if card field "password" is not userPass then
  71.     notifyUser "Invalid user name/password..."
  72.     send "openCard" to this card
  73.     exit mouseUp
  74.   end if
  75.   timeOut 300,"hangUpWarn,hangUp"
  76.   sendString return
  77.   if onLine then
  78.     add 1 to callers
  79.     get "Caller " & callers
  80.   else get "Local login"
  81.   put it & ": " & userName & "; on at: " & the time & "; times: " & userTimes+1 & "; from: " & userCity into lastUserInfo
  82.   put lastUserInfo
  83.   sendString "Last on: " & userLast & return
  84.   loginUser
  85.   sendString "Previous calls: " & userTimes & return & return
  86.   visual effect iris open fast
  87.   go to card id 10198
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 4 (field)
  93. -- low flags: 00
  94. -- high flags: 4000
  95. -- rect: left=353 top=234 right=246 bottom=488
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 3
  100. -- text size: 5
  101. -- style flags: 0
  102. -- line height: 6
  103. -- part name: Password
  104. ----- HyperTalk script -----
  105. -- editable
  106. -- invisible
  107.  
  108.